Private Sub Workbook_NewSheet(ByVal Sh As Object)

    Dim Ʈ As Worksheet
    
    Set Ʈ = Worksheets("sample")
    
    Ʈ.Cells.Copy Sh.Cells(1)
    
        Range("B8:K13").ClearContents
    
    Sh.Name = "_" & Format(Time, "hhnnss")
    
End Sub
